Object subclass: #HtmlCanvas	instanceVariableNames: 'response'	classVariableNames: ''	poolDictionaries: ''	category: 'AjTalk-HttpServer'!!HtmlCanvas methodsFor: 'render' stamp: 'ajl 11/1/2011 09:44'!write: text"write the text to the response stream"response write: text! !!HtmlCanvas methodsFor: 'html' stamp: 'ajl 11/1/2011 09:45'!h1: content	self write: '<h1>'.	self write: content.	self write:'</h1>'! !!HtmlCanvas methodsFor: 'html' stamp: 'ajl 11/1/2011 09:54'!image: url	"render an image"	response write: '<img src="'.	response write: url.	response write: '">'! !Object subclass: #HtmlPage	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'AjTalk-HttpServer'!!HtmlPage methodsFor: 'render' stamp: 'ajl 11/1/2011 09:53'!render: html	"render page on html canvas"	html h1: 'Hello, world'.	html image: 'http://www.ajlopez.com/images/imagen.jpg'! !